home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #093 (1990-10)(Amiga User Group Deutschland e.V.).zip / Franz PD Disk #093 (1990-10)(Amiga User Group Deutschland e.V.).adf / Redcode / Jumper1 < prev    next >
Text File  |  1990-09-11  |  4KB  |  218 lines
  1.  
  2. ; Jumper
  3. ; ------
  4. ; Hat schon eine Anzahl (100 Stueck) festcodierter Jumpbefehle im Programm
  5. ; die auf eine Falle weisen. Diese werden von einer Anzahl verschiedener
  6. ; Tasks gleichmässig im Speicher verteilt, so dass sie jeweils auf eine
  7. ; Falle im jeweiligen Task zeigen, die aber nur auf die Falle im Haupttask
  8. ; zeigt. Alle anfangs erzeugten Tasks werden wieder gelöscht, so dass am
  9. ; Schluss nur noch der Ursprungstask vorhanden ist. Das Ende wird
  10. ; wie bei Killer4 gestaltet.
  11.  
  12.  JMP 707
  13.  JMP 700
  14.  JMP 693
  15.  JMP 686
  16.  JMP 679
  17.  JMP 672
  18.  JMP 665
  19.  JMP 658
  20.  JMP 651
  21.  JMP 644
  22.  JMP 637
  23.  JMP 630
  24.  JMP 623
  25.  JMP 616
  26.  JMP 609
  27.  JMP 602
  28.  JMP 595
  29.  JMP 588
  30.  JMP 581
  31.  JMP 574
  32.  JMP 567
  33.  JMP 560
  34.  JMP 553
  35.  JMP 546
  36.  JMP 539
  37.  JMP 532
  38.  JMP 525
  39.  JMP 518
  40.  JMP 511
  41.  JMP 504
  42.  JMP 497
  43.  JMP 490
  44.  JMP 483
  45.  JMP 476
  46.  JMP 189
  47.  JMP 462
  48.  JMP 455
  49.  JMP 448
  50.  JMP 441
  51.  JMP 434
  52.  JMP 427
  53.  JMP 420
  54.  JMP 413
  55.  JMP 406
  56.  JMP 399
  57.  JMP 392
  58.  JMP 385
  59.  JMP 378
  60.  JMP 371
  61.  JMP 364
  62.  JMP 357
  63.  JMP 350
  64.  JMP 343
  65.  JMP 336
  66.  JMP 329
  67.  JMP 322
  68.  JMP 315
  69.  JMP 308
  70.  JMP 301
  71.  JMP 294
  72.  JMP 287
  73.  JMP 280
  74.  JMP 273
  75.  JMP 266
  76.  JMP 259
  77.  JMP 252
  78.  JMP 245
  79.  JMP 238
  80.  JMP 231
  81.  JMP 224
  82.  JMP 217
  83.  JMP 210
  84.  JMP 203
  85.  JMP 196
  86.  JMP 189
  87.  JMP 182
  88.  JMP 175
  89.  JMP 168
  90.  JMP 161
  91.  JMP 154
  92.  JMP 147
  93.  JMP 140
  94.  JMP 133
  95.  JMP 126
  96.  JMP 119
  97.  JMP 112
  98.  JMP 105
  99.  JMP 98
  100.  JMP 91
  101.  JMP 84
  102.  JMP 77
  103.  JMP 70
  104.  JMP 63
  105.  JMP 56
  106.  JMP 49
  107.  JMP 42
  108.  JMP 35
  109.  JMP 28
  110.  JMP 21
  111.  JMP 14
  112.  JMP 7
  113.  
  114. adresse    DAT 0
  115. ort        DAT -5
  116. counter0   DAT 100
  117. falle      JMP 0                   ;später Zeiger auf Hauptfalle
  118. proggy     MOV <adresse, @ort
  119.            SUB #7, ort
  120.            DJN proggy, counter0
  121.  
  122. enemies    DAT 0
  123. hauptfalle ADD #1, enemies
  124.            SPL 0
  125. kill       JMP hauptfalle
  126.  
  127. counter1   DAT 10                  ;Anzahl Kopien des Proggys
  128. wohin      DAT 1400                ;wo die erste Kopie
  129. woher      DAT -6                  ;wo beginnen
  130. counter2   DAT 6                   ;wie viele Zeilen ist proggy lang
  131. howlong    DAT 6                   ;wie viele Zeilen ist proggy lang
  132. beginn     DAT -1405               ;woher die Daten nehmen
  133. taskadr    DAT 1392                ;wo ist der neue Task?
  134. falleadr   DAT 1390                ;Zeiger auf Hauptfalle
  135. jmpfalle   JMP -1400
  136. start      MOV <woher, <wohin      ;Zu kopieren beginnen
  137.            DJN start, counter2
  138.            MOV beginn, <wohin      ;für jedes proggy die Adresse, aus
  139.                                    ;der die JMP's kommen, eingeben
  140.            MOV jmpfalle, @falleadr
  141.            SPL @taskadr            ;neuen Task starten
  142.            SUB #713, beginn        ;und neu berechen
  143.            MOV howlong, counter2
  144.            MOV #-6, woher
  145.            ADD #720, wohin         ;naechste Kopie
  146.            ADD #713, taskadr       ;start der naechsten Kopie
  147.            ADD #713, falleadr      ;neu stellen der Falle
  148.            SUB #713, jmpfalle
  149.            CMP #0, enemies         ;was gefangen?
  150.            JMP loeschen            ;Speicher loeschen anfangen
  151.            DJN start, counter1
  152.            JMP gnomtasks           ;Ueberleben starten
  153.  
  154. wo         DAT 100
  155. counter3   DAT 2600
  156. loeschen   MOV #1, @wo             ;Im Abstand von drei Zellen DAT 1
  157.            ADD #3, wo
  158.            DJN loeschen, counter3
  159.  
  160.            SPL gnomtasks
  161.            MOV #0, kill
  162.            JMP 0                   ;Ueberleben
  163.  
  164. gnomtasks  MOV -1, 7990            ;Insgesamt 6 tasks
  165.            SPL 7989                ;starten, so dass gnom überlebt
  166.            MOV -3, 7981            ;wird.
  167.            SPL 7980                ;und vielleicht auch was
  168.            SPL nummer1             ;anderes, wer weiss
  169.            SPL nummer2
  170.            SPL nummer3
  171.            SPL nummer4
  172.            SPL nummer5
  173.            DAT 50
  174.            DAT 0
  175.            DAT 0
  176. nummer1    MOV #0, @-3
  177.            ADD #4, -4
  178.            JMP nummer1
  179.            JMP 0
  180.            DAT 0
  181.            DAT 0
  182.            DAT 1640
  183.            DAT 0
  184.            DAT 0
  185. nummer2    MOV #0, @-3
  186.            ADD #4, -4
  187.            JMP nummer2
  188.            JMP 0
  189.            DAT 0
  190.            DAT 0
  191.            DAT 3230
  192.            DAT 0
  193.            DAT 0
  194. nummer3    MOV #0, @-3
  195.            ADD #4, -4
  196.            JMP nummer3
  197.            JMP 0
  198.            DAT 0
  199.            DAT 0
  200.            DAT 4820
  201.            DAT 0
  202.            DAT 0
  203. nummer4    MOV #0, @-3
  204.            ADD #4, -4
  205.            JMP nummer4
  206.            JMP 0
  207.            DAT 0
  208.            DAT 0
  209.            DAT 6410
  210.            DAT 0
  211.            DAT 0
  212. nummer5    MOV #0, @-3
  213.            ADD #4, -4
  214.            JMP nummer5
  215.            JMP 0
  216.            DAT 0
  217.            DAT 0
  218.